rem led/batt tester 
@title led/batt tester 
@param b brightness
@default b 200


rem LED_GREEN       4
rem LED_YELLOW      5
rem not used        6
rem LED_ORANGE      7
rem LED_BLUE        8
rem LED_AF_BEAM     9
rem LED_TIMER       10
b=200
do

  wait_click

  if is_key "up"    then gosub "show_led"
  if is_key "down"  then print get_vbatt
  if is_key "display"  then cls
  if is_key "right" then b=b-10	
  if is_key "left" then gosub "light"

until is_key "set"

goto "the_end"

:light
for c=0 to 20
  for x=200 to 0 step -110
    set_led 8 1 b
    sleep 10
  next x
  for x=0 to 200 step 10
    set_led 8 1 b
    sleep 10
  next x
next c
return

:show_led

  for x=4 to 10
    set_led x 1 
    sleep 1000
    set_led x 0
  next x

return


:the_end
end
 